home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / v11n02.zip / QUICK2.WFW < prev    next >
Text File  |  1991-12-31  |  1KB  |  37 lines
  1. WORDSTAR QUICK KEYS FOR WINWORD 1.X
  2.  
  3. Sub MAIN
  4. Begin Dialog UserDialog 411, 150
  5.     OptionGroup .OptionGroup1
  6.     OptionButton 260, 73, 98, 22, "&RTop of doc"
  7.     OptionButton 261, 125, 108, 22, "&CEnd of Doc"
  8.     OptionButton 95, 7, 88, 21, "&Previous"
  9.     OptionButton 13, 98, 103, 22, "&SLeft of Line"
  10.     OptionButton 133, 98, 124, 22, "&DRight of Line"
  11.     OptionButton 90, 73, 127, 21, "&ETop of Screen"
  12.     OptionButton 82, 125, 145, 21, "&XBottom of Screen"
  13.     CancelButton 350, 2, 59, 22
  14.     OKButton 350, 30, 36, 22
  15. End Dialog
  16. Dim QuickMenu As UserDialog
  17. On Error Goto ForgetIt
  18. Dialog QuickMenu
  19.     If QuickMenu.OptionGroup1 = 0 Then
  20.         StartOfDocument
  21.     ElseIf QuickMenu.OptionGroup1 = 1 Then
  22.         EndOfDocument
  23.     ElseIf QuickMenu.OptionGroup1 = 2 Then
  24.         GoBack
  25.     ElseIf QuickMenu.OptionGroup1 = 3 Then
  26.         StartOfLine
  27.     ElseIf QuickMenu.OptionGroup1 = 4 Then
  28.         EndOfLine
  29.     ElseIf QuickMenu.OptionGroup1 = 5 Then
  30.         StartOfWindow
  31.     ElseIf QuickMenu.OptionGroup1 = 6 Then
  32.         EndOfWindow
  33. End If
  34. Forgetit:
  35. End Sub
  36.  
  37.